0 POKE53280,1:PRINT"[147]"TAB(12)"UNJUMBLED WORDS"
1 REM ==================================
2 REM    COMMODARES PROBLEM #55-3 :
3 REM       UNJUMBLED WORDS
4 REM    SOLUTION BY
5 REM       WALLACE LEEKER
6 REM    (BASED ON A SOLUTION TO
7 REM   PROBLEM #24-1 BY ALLAN FLIPPIN)
8 REM ==================================
100 INPUT S$: N=LEN(S$): DIM C(N-1)
110 I=N-1: PRINT S$,
120 S$=LEFT$(S$,I-1)+RIGHT$(S$,N-I)+MID$(S$,I,1)
130 C(I)=C(I)+1: IF C(I)<=N-I GOTO 110
140 C(I)=0: IF I>1 THEN I=I-1: GOTO 120